home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2006 December / PCWDEC06.iso / Software / Trial / Paint Shop Pro XI / Data1.cab / verify.tcl.0160FC08_F3D9_4869_9D41_C611C16F42D5 < prev    next >
Encoding:
Text File  |  2005-06-08  |  640 b   |  27 lines
  1. # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
  2. #
  3. #    $Id: Verify.tcl,v 1.2.2.1 2001/11/03 07:26:10 idiscovery Exp $
  4. #
  5. # Verify.tcl --
  6. #
  7. #    Config option verification routines.
  8. #
  9. # Copyright (c) 1993-1999 Ioi Kim Lam.
  10. # Copyright (c) 2000-2001 Tix Project Group.
  11. #
  12. # See the file "license.terms" for information on usage and redistribution
  13. # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  14. #
  15.  
  16. proc tixVerifyBoolean {val} {
  17.     return [tixGetBoolean $val]
  18. }
  19.  
  20. proc tixVerifyDirectory {val} {
  21.     if {![file isdir $val]} {
  22.     error "\"$val\" is not a directory"
  23.     }
  24.     return $val
  25. }
  26.  
  27.